home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / text / misc / 2b_Ort.lha / Ort / ARexx / SprBlok.ced < prev    next >
Text File  |  1999-02-10  |  1KB  |  68 lines
  1. /*
  2. $ver: SprBlok.ced 1.2 (03.12.98) BLABLA PRODUCT
  3. (c) 1998 Siumot/BlaBla
  4.  
  5. Ten skrypt jest przeznaczony dla programu CED. Powoduje on korektë
  6. programem Ort zaznaczonego bloku tekstowego. Podczas korygowania, sprawdzany
  7. dokument w programie CED jest zablokowany. Skrypt najlepiej podîoûyê
  8. pod klawisz funkcyjny.
  9.  
  10. UWAGA!!! Jeôli nie zainstalowaîeô tego skryptu instalatorem Orta,
  11.          to musisz dopisaê nastëpujâcâ linië:
  12.          ORTFILENAME=ôcieûka dostëpu/ort
  13.      Zamiast "ôcieûka dostëpu" naleûy oczywiôcie wpisaê ôcieûkë dostëpu
  14.          do programu Ort (np. ORTFILENAME=dh2:tekst/ort/ort).
  15. */
  16.  
  17. OPTIONS RESULTS
  18.  
  19. IF ~SHOW('P', 'rexx_ced') THEN EXIT 1
  20. ADDRESS "rexx_ced"
  21.  
  22. IF ~SHOW('P', '2b_Ort_rexx') THEN DO
  23.    IF ORTFILENAME='ORTFILENAME' THEN DO
  24.      OKAY1 'Program Ort nie jest uruchomiony.'
  25.      EXIT
  26.    END
  27.    ADDRESS COMMAND 'Run >NIL: "'ORTFILENAME'"'
  28.    ADDRESS COMMAND 'WaitForPort 2b_Ort_rexx'
  29. END
  30.  
  31. Status NumChanges
  32. if RESULT ~= 0 then Save
  33.  
  34. Status ClipUnit
  35. cedclip=result
  36. SET CLIPBOARD UNIT 254
  37. Cut Blok
  38. IF result=0 THEN DO
  39.   okay1 'Nie zaznaczyîeô bloku do korekty.'
  40.   SET CLIPBOARD UNIT cedclip
  41.   EXIT 0
  42. END
  43.  
  44. ADDRESS '2b_Ort_rexx'
  45.  
  46. Info Hide
  47. ortsleep=RESULT
  48. IF ortsleep=1 THEN Show
  49.  
  50. PREFS CLIPBOARD
  51. ortclip=result
  52. PREFS CLIPBOARD 254
  53.  
  54. ORT TO FRONT
  55.  
  56. LOAD FROM CLIP
  57. IF rc=0 THEN DO
  58.    CORRECTION
  59.    IF ~(rc=5) THEN SAVE TO CLIP
  60. END
  61. PREFS CLIPBOARD ortclip
  62. IF ortsleep=1 THEN Hide
  63. ADDRESS "rexx_ced"
  64. Paste
  65. CedToFront
  66. Set Clipboard Unit cedclip
  67. EXIT 0
  68.